home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / Eyetech / DOWNLOAD / IOBLI015.LHA / Install < prev    next >
Text File  |  1999-08-10  |  10KB  |  353 lines
  1. ;
  2. ; $VER: IOBlix installation 1.5 (16.7.99)
  3. ;
  4. ; Copyright (c) 1998 Thore Böckelmann and RBM Computertechnik
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11. (if (not (= @language "deutsch"))
  12.     (
  13.         (set #bad-kick      "You must have AmigaOS 2.0 (V37) or newer to be able to use the IOBlix I/O board.")
  14.         (set #bad-cpu       "You must have at least an MC68020 to use the IOBlix software.")
  15.         (set #noioblix      (cat "You have no IOBlix board installed! "
  16.                                  "Please install the board first, before you install the software!"))
  17.         (set #selectboard   (cat "You have an IOBlixZ2 board and an IOBlix1200 module installed!\n"
  18.                                  "For which hardware do you want to install the software?"))
  19.         (set #installz2     "\n\nI will now install the software for the IOBlixZ2 board.")
  20.         (set #install1200   "\n\nI will now install the software for a IOBlix1200 module.")
  21.         (set #selectdevs    "\nWhere to install the device drivers?\n")
  22.         (set #selectl       "\nWhere to install the IOBlix-Handler?\n")
  23.         (set #selecttool    "\nWhere to install the additional tools (a new drawer will be created automatically)?\n")
  24.         (set #copyserdev    "\nCopying serial device driver...\n")
  25.         (set #copypardev    "\nCopying parallel device driver...\n")
  26.         (set #copyhandler   "\nCopying IOBlix-Handler...\n")
  27.         (set #copydosdriver "\nCopying DOSDrivers...\n")
  28.         (set #copytools     "\nCopying Tools...\n")
  29.         (set #createtest    "\nCreating \"Test_Board\" script...\n")
  30.         (set #ssmodify      "\nAdding some command to S:User-Startup...\n")
  31.         (set #toolsource    "C/english")
  32.         (set #nsdinfo       (cat "\n"
  33.                                  "\n"
  34.                                  "If don't want to use IOBlix' own drivers SERxx: and PARxx: "
  35.                                  "but the original drivers instead, then you also have to install the NSDPatch software!\n"
  36.                                  "\n"
  37.                                  "NSDPatch can be found in the drawer \"Goodies\""))
  38.     )
  39. )
  40.  
  41. ;****************************************************************************
  42. ;
  43. ; Deutsche Texte
  44. ;
  45. (if (= @language "deutsch")
  46.     (
  47.         (set #bad-kick      "Sie müssen AmigaOS 2.0 (V37) oder höher installieren, um die IOBlix-Karte zu benutzen.")
  48.         (set #bad-cpu       "Sie brauchen mindestens einen MC68020, um die IOBlix-Software zu benutzen.")
  49.         (set #noioblix      (cat "Sie haben keine IOBlix-Karte in Ihrem Rechner installiert! "
  50.                                  "Bitte bauen Sie erst die Karte ein, bevor Sie die Software installieren!"))
  51.         (set #selectboard   (cat "Sie haben ein IOBlixZ2-Karte und ein IOBlix1200-Modul installiert!\n"
  52.                                  "Für welche Hardware wollen Sie die Software installieren?"))
  53.         (set #installz2     "\n\nEs wird jetzt die Software für die IOBlixZ2-Karte installiert.")
  54.         (set #install1200   "\n\nEs wird jetzt die Software für ein IOBlix1200-Modul installiert.")
  55.         (set #selectdevs    "\nWohin sollen die Gerätetreiber kopiert werden?\n")
  56.         (set #selectl       "\nWohin soll der IOBlix-Handler kopiert werden?\n")
  57.         (set #selecttool    "\nWohin sollen die Zusatzprogramme kopiert werden (eine neue Schublade wird automatisch angelegt)?\n")
  58.         (set #copyserdev    "\nKopiere seriellen Gerätetreiber...\n")
  59.         (set #copypardev    "\nKopiere parallelen Gerätetreiber...\n")
  60.         (set #copyhandler   "\nKopiere IOBlix-Handler...\n")
  61.         (set #copydosdriver "\nKopiere DOSDrivers...\n")
  62.         (set #copytools     "\nKopiere Zusatzprogramme...\n")
  63.         (set #createtest    "\nErstelle \"Test_Board\" Skript...\n")
  64.         (set #ssmodify      "\nFüge Befehle in S:User-Startup ein...\n")
  65.         (set #toolsource    "C/deutsch")
  66.         (set #nsdinfo       (cat "\n"
  67.                                  "\n"
  68.                                  "Wenn Sie statt der IOBlix-eigenen Treibern SERxx: und PARxx: "
  69.                                  "lieber weiterhin die originalen Treiber benutzen wollen, dann müssen Sie noch die NSDPatch-Software installieren!\n"
  70.                                  "\n"
  71.                                  "NSDPatch finden Sie in der Schublade \"Goodies\""))
  72.     )
  73. )
  74.  
  75. ;****************************************************************************
  76. ;
  77. ; Setup
  78. ;
  79.  
  80. (complete 0)
  81.  
  82. (if (< (/ (getversion) 65536) 37)
  83.     (abort #bad-kick)
  84. )
  85.  
  86. (if (patmatch "68000|68010" (database "cpu"))
  87.     (abort #bad-cpu)
  88. )
  89.  
  90. (run "execute install-assign")
  91.  
  92. ;****************************************************************************
  93. ;
  94. ; Welcome
  95. ;
  96.  
  97. (welcome)
  98.  
  99. (complete 10)
  100.  
  101. ;****************************************************************************
  102. ;
  103. ; Check for IOBlix board
  104. ;
  105.  
  106. (run "C/english/SetupIOBlix reinit a1200 par ser" (safe))
  107. (set #ioblixz2
  108.     (+
  109.         (run "C/Look4IOBlix hw=ser" (safe))
  110.         (run "C/Look4IOBlix hw=par" (safe))
  111.     )
  112. )
  113. (set #ioblix1200
  114.     (+
  115.         (run "C/Look4IOBlix a1200 hw=ser" (safe))
  116.         (run "C/Look4IOBlix a1200 hw=par" (safe))
  117.     )
  118. )
  119.  
  120. (if (> 2 @user-level)
  121.     (
  122.         (if (and (= 0 #ioblixz2) (= 0 #ioblix1200))
  123.             (abort #noioblix)
  124.         )
  125.     )
  126.     (
  127.         (set #ioblixz2 5)
  128.         (set #ioblix1200 5)
  129.     )
  130. )
  131.  
  132. (if (and (< 0 #ioblixz2) (< 0 #ioblix1200))
  133.     (
  134.         (set #ioblixboard
  135.             (askchoice
  136.                 (prompt #selectboard)
  137.                 (help @askchoice-help)
  138.                 (choices "IOBlixZ2" "IOBlix1200")
  139.                 (default 0)
  140.             )
  141.         )
  142.     )
  143.     (
  144.         (if (< 0 #ioblixz2)
  145.             (
  146.                 (set #ioblixboard 0)
  147.             )
  148.             (
  149.                 (set #ioblixboard 1)
  150.             )
  151.         )
  152.     )
  153. )
  154.  
  155. (if (= 0 #ioblixboard)
  156.     (
  157.         (message #installz2)
  158.     )
  159.     (
  160.         (message #install1200)
  161.     )
  162. )
  163.  
  164. (complete 20)
  165.  
  166. ;****************************************************************************
  167. ;
  168. ; Setup directory
  169. ;
  170.  
  171. (set #destdevs
  172.     (askdir
  173.         (prompt #selectdevs)
  174.         (help @askdir-help)
  175.         (default "DEVS:")
  176.     )
  177. )
  178.  
  179. (set #destl
  180.     (askdir
  181.         (prompt #selectl)
  182.         (help @askdir-help)
  183.         (default "L:")
  184.     )
  185. )
  186.  
  187. (set #desttool
  188.     (askdir
  189.         (prompt #selecttool)
  190.         (help @askdir-help)
  191.         (default "SYS:IOBlix")
  192.         (newpath)
  193.     )
  194. )
  195.  
  196. (set @default-dest #desttool)
  197.  
  198. (complete 20)
  199.  
  200. (makedir #desttool
  201.     (prompt "")
  202.     (help @makedir-help)
  203.     (infos)
  204. )
  205.  
  206. (complete 30)
  207.  
  208. ;****************************************************************************
  209. ;
  210. ; Install devices
  211. ;
  212.  
  213. (if (= 0 #ioblixboard)
  214.     (
  215.         (set #file "Devs/IOBlixZ2/ioblixser.device")
  216.     )
  217.     (
  218.         (set #file "Devs/IOBlix1200/ioblix12ser.device")
  219.     )
  220. )
  221. (copylib
  222.     (help @copylib-help)
  223.     (prompt #copyserdev)
  224.     (source #file)
  225.     (dest #destdevs)
  226.     (confirm)
  227. )
  228.  
  229. (if (= 0 #ioblixboard)
  230.     (
  231.         (set #file "Devs/IOBlixZ2/ioblixpar.device")
  232.     )
  233.     (
  234.         (set #file "Devs/IOBlix1200/ioblix12par.device")
  235.     )
  236. )
  237. (copylib
  238.     (help @copylib-help)
  239.     (prompt #copypardev)
  240.     (source #file)
  241.     (dest #destdevs)
  242.     (confirm)
  243. )
  244.  
  245. (copylib
  246.     (help @copylib-help)
  247.     (prompt #copyhandler)
  248.     (source "l/IOBlix-Handler")
  249.     (dest #destl)
  250.     (confirm)
  251. )
  252.  
  253. (if (= 0 #ioblixboard)
  254.     (
  255.         (copyfiles
  256.             (help @copyfiles-help)
  257.             (prompt #copydosdriver)
  258.             (source "Devs/IOBlixZ2/DOSDrivers")
  259.             (choices "PAR00" "PAR01" "SER00" "SER01" "SER02" "SER03")
  260.             (dest "SYS:Storage/DOSDrivers")
  261.             (infos)
  262.             (confirm)
  263.         )
  264.     )
  265.     (
  266.         (copyfiles
  267.             (help @copyfiles-help)
  268.             (prompt #copydosdriver)
  269.             (source "Devs/IOBlix1200/DOSDrivers")
  270.             (choices "PAR00" "PAR01" "SER00" "SER01" "SER02" "SER03")
  271.             (dest "SYS:Storage/DOSDrivers")
  272.             (infos)
  273.             (confirm)
  274.         )
  275.     )
  276. )
  277.  
  278. (complete 40)
  279.  
  280. ;****************************************************************************
  281. ;
  282. ; Install tools
  283. ;
  284.  
  285. (copyfiles
  286.     (help @copyfiles-help)
  287.     (prompt #copytools)
  288.     (source #toolsource)
  289.     (choices "SetupIOBlix" "QueryIOBlix" "ResetQuaddddroPort")
  290.     (dest #desttool)
  291.     (confirm)
  292. )
  293.  
  294. (if (<> 0 #ioblixboard)
  295.     (
  296.         (if (<> 0 (run "search S:User-Startup ResetQuaddddroPort >nil:" (safe)))
  297.             (
  298.                 (textfile
  299.                     (dest "S:User-Startup.old")
  300.                     (prompt "")
  301.                     (help "")
  302.                     (include "S:User-Startup")
  303.                 )
  304.                 (textfile
  305.                     (dest "S:User-Startup")
  306.                     (prompt "")
  307.                     (help "")
  308.                     (append (cat (tackon #desttool "ResetQuaddddroPort") "\n"))
  309.                     (include "S:User-Startup.old")
  310.                 )
  311.             )
  312.         )
  313.     )
  314. )
  315.  
  316. (startup "IOBlix I/O Board"
  317.     (help @startup-help)
  318.     (prompt #ssmodify)
  319.     (command (cat (tackon #desttool "SetupIOBlix") " >NIL:"))
  320. )
  321.  
  322. (complete 60)
  323.  
  324. (copyfiles
  325.     (help @copyfiles-help)
  326.     (prompt #createtest)
  327.     (dest #desttool)
  328.     (source "Test_Board")
  329.     (infos)
  330. )
  331.  
  332. (textfile
  333.     (dest (tackon #desttool "Test_Board"))
  334.     (prompt #createtest)
  335.     (help "")
  336.     (append (tackon #desttool "QueryIOBlix >t:queryioblix{$$}\n"))
  337.     (append "more t:queryioblix{$$}\n")
  338.     (append "delete t:queryioblix{$$} >nil:\n")
  339. )
  340.  
  341. ;complete 80)
  342.  
  343. (message #nsdinfo)
  344.  
  345. ;****************************************************************************
  346. ;
  347. ; Exit
  348. ;
  349.  
  350. (complete 100)
  351. (exit)
  352.  
  353.